Eagles Nest BBS 8

home *** CD-ROM | disk | FTP | other *** search

/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Environments / AdaV401#3 / AdaV3 / test / DBTEST.ADA < prev next >

MacBinary | 1988-05-05 | 1.1 KB | [TEXT/????]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Thu May 5 22:17:07 1988, modified Thu May 5 22:17:07 1988, creator '????', type ASCII, 586 bytes "DBTEST.ADA" , at 0x2ca 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[????]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 44 42 54 45 53 54 | 2e 41 44 41 00 00 00 00 |..DBTEST|.ADA....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 3f 3f 3f | 3f 01 00 00 00 00 00 00 |.TEXT???|?.......|
|00000050| 00 00 00 00 00 02 4a 00 | 00 01 7e 9e a6 d2 a3 9e |......J.|..~.....|
|00000060| a6 d2 a3 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 47 f1 00 00 |........|....G...|
|00000080| 77 69 74 68 20 61 64 61 | 5f 69 6f 3b 20 75 73 65 |with ada|_io; use|
|00000090| 20 61 64 61 5f 69 6f 3b | 0d 70 72 6f 63 65 64 75 | ada_io;|.procedu|
|000000a0| 72 65 20 64 62 74 65 73 | 74 20 69 73 0d 20 20 78 |re dbtes|t is.  x|
|000000b0| 3a 20 69 6e 74 65 67 65 | 72 20 3a 3d 20 33 37 3b |: intege|r := 37;|
|000000c0| 0d 20 20 73 3a 20 73 74 | 72 69 6e 67 28 31 2e 2e |.  s: st|ring(1..|
|000000d0| 33 29 20 3a 3d 20 22 61 | 62 63 22 3b 0d 20 20 74 |3) := "a|bc";.  t|
|000000e0| 79 70 65 20 63 6f 6c 6f | 72 20 69 73 20 28 72 65 |ype colo|r is (re|
|000000f0| 64 2c 20 79 65 6c 6c 6f | 77 2c 20 62 6c 75 65 29 |d, yello|w, blue)|
|00000100| 3b 0d 20 20 61 3a 20 61 | 72 72 61 79 28 63 6f 6c |;.  a: a|rray(col|
|00000110| 6f 72 29 20 6f 66 20 69 | 6e 74 65 67 65 72 20 3a |or) of i|nteger :|
|00000120| 3d 20 28 32 2c 20 33 2c | 20 35 29 3b 0d 20 20 62 |= (2, 3,| 5);.  b|
|00000130| 3a 20 61 72 72 61 79 28 | 79 65 6c 6c 6f 77 2e 2e |: array(|yellow..|
|00000140| 62 6c 75 65 29 20 6f 66 | 20 66 6c 6f 61 74 20 3a |blue) of| float :|
|00000150| 3d 20 28 33 2e 37 2c 20 | 37 2e 33 29 3b 0d 20 20 |= (3.7, |7.3);.  |
|00000160| 74 3a 20 73 74 72 69 6e | 67 28 33 2e 2e 36 29 3b |t: strin|g(3..6);|
|00000170| 0d 20 20 65 6d 70 74 79 | 3a 20 73 74 72 69 6e 67 |.  empty|: string|
|00000180| 28 31 2e 2e 30 29 3b 0d | 20 20 74 79 70 65 20 69 |(1..0);.|  type i|
|00000190| 76 65 63 74 6f 72 20 69 | 73 20 61 72 72 61 79 28 |vector i|s array(|
|000001a0| 6e 61 74 75 72 61 6c 20 | 72 61 6e 67 65 20 3c 3e |natural |range <>|
|000001b0| 29 20 6f 66 20 69 6e 74 | 65 67 65 72 3b 0d 20 20 |) of int|eger;.  |
|000001c0| 69 65 6d 70 74 79 3a 20 | 69 76 65 63 74 6f 72 28 |iempty: |ivector(|
|000001d0| 31 2e 2e 30 29 3b 0d 20 | 20 74 79 70 65 20 72 65 |1..0);. | type re|
|000001e0| 63 20 69 73 0d 20 20 20 | 20 72 65 63 6f 72 64 0d |c is.   | record.|
|000001f0| 20 20 20 20 20 20 78 2c | 79 2c 7a 3a 20 69 6e 74 |      x,|y,z: int|
|00000200| 65 67 65 72 3b 0d 20 20 | 20 20 65 6e 64 20 72 65 |eger;.  |  end re|
|00000210| 63 6f 72 64 3b 0d 20 20 | 72 3a 20 61 72 72 61 79 |cord;.  |r: array|
|00000220| 28 31 2e 2e 33 29 20 6f | 66 20 72 65 63 20 3a 3d |(1..3) o|f rec :=|
|00000230| 20 28 28 31 31 2c 31 32 | 2c 31 33 29 2c 28 32 31 | ((11,12|,13),(21|
|00000240| 2c 32 32 2c 32 33 29 2c | 28 33 31 2c 33 32 2c 33 |,22,23),|(31,32,3|
|00000250| 33 29 29 3b 0d 20 20 70 | 72 6f 63 65 64 75 72 65 |3));.  p|rocedure|
|00000260| 20 70 28 6e 3a 20 73 74 | 72 69 6e 67 29 20 69 73 | p(n: st|ring) is|
|00000270| 0d 20 20 62 65 67 69 6e | 0d 20 20 20 20 70 75 74 |.  begin|.    put|
|00000280| 5f 6c 69 6e 65 28 6e 29 | 3b 0d 20 20 65 6e 64 3b |_line(n)|;.  end;|
|00000290| 0d 62 65 67 69 6e 0d 20 | 20 74 20 3a 3d 20 22 77 |.begin. | t := "w|
|000002a0| 78 79 7a 22 3b 0d 20 20 | 70 28 22 68 65 6c 6c 6f |xyz";.  |p("hello|
|000002b0| 22 29 3b 0d 20 20 70 28 | 74 29 3b 0d 20 20 70 28 |");.  p(|t);.  p(|
|000002c0| 22 22 29 3b 0d 65 6e 64 | 3b 0d 00 00 00 00 00 00 |"");.end|;.......|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000310| 0d 62 65 67 69 6e 0d 20 | 20 74 20 3a 3d 20 22 77 |.begin. | t := "w|
|00000320| 78 79 7a 22 3b 0d 20 20 | 70 28 22 68 65 6c 6c 6f |xyz";.  |p("hello|
|00000330| 0a 44 42 54 45 53 54 2e | 41 44 41 53 02 00 00 00 |.DBTEST.|ADAS....|
|00000340| 54 45 58 54 3f 3f 3f 3f | 01 00 00 40 00 00 ff fe |TEXT????|...@....|
|00000350| 00 00 54 45 58 54 3f 3f | 3f 3f 01 00 00 40 00 00 |..TEXT??|??...@..|
|00000360| ff fe 00 84 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 9e a6 8c 51 00 00 | 02 4a 00 00 01 7e ff f4 |.....Q..|.J...~..|
|00000380| 70 00 30 11 2f 00 4e ad | 03 d2 41 ee ff f4 5c 88 |p.0./.N.|..A...\.|
|00000390| 20 10 4c ee 0c 00 ff ec | 4e 5e 4e 75 d3 49 47 30 | .L.....|N^Nu.IG0|
|000003a0| 30 32 20 20 00 00 00 38 | 02 38 00 01 4e 56 00 00 |02  ...8|.8..NV..|
|000003b0| 48 e7 20 00 41 ee 00 08 | 74 00 42 a7 48 78 66 02 |H. .A...|t.B.Hxf.|
|000003c0| 2f 10 4e ad 03 aa 4a 80 | 57 c2 44 02 20 02 4c ee |/.N...J.|W.D. .L.|
|000003d0| 00 04 ff fc 4e 5e 4e 75 | c9 53 41 54 54 59 20 20 |....N^Nu|.SATTY  |
|000003e0| 00 00 00 8c 02 40 00 03 | 4e 56 00 00 48 e7 20 00 |.....@..|NV..H. .|
|000003f0| 48 e7 0f 0c 2a 78 09 04 | 48 6d f4 60 4e ad 00 42 |H...*x..|Hm.`N..B|
|00000400| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 6c 6f 73 |...H..Mo|naco.los|
|00000410| 65 00 2d 79 00 50 72 6f | 38 30 3a 70 61 63 3a 61 |e.-y.Pro|80:pac:a|
|00000420| 64 65 62 75 67 3a 00 06 | 00 04 00 3c 00 24 01 dd |debug:..|...<.$..|
|00000430| 02 7d 00 3c 00 24 01 dd | 02 7d 9e a6 8c 53 00 00 |.}.<.$..|.}...S..|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000450| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 02 f1 00 |...L...L|...2....|
|00000460| 03 ae 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000470| 00 0a 03 ed ff ff 00 00 | 00 00 00 04 29 5c 00 00 |........|....)\..|
+--------+-------------------------+-------------------------+--------+--------+